home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
prodpack.zip
/
DB4PPSAM.EXE
/
BDCOK.PRG
< prev
next >
Wrap
Text File
|
1993-03-18
|
913b
|
35 lines
FUNCTION BDCOk
*----------------------------------------------------------------------------
* NAME
* BDCOk() -
*
*----------------------------------------------------------------------------
PRIVATE lOk
lOk = .T.
IF TYPE( "aClkObj[1,1]" ) = "N"
IF ISBLANK( CD_LIST_1 ) .OR. "*" $ CD_LIST_1 .OR. "?" $ CD_LIST_1
DO _Err_Box WITH [You must specify a valid file!]
lOk = .F.
ELSE
IF LEFT( CD_LIST_1, 1 ) = "@"
IF .NOT. FILE( TRIM( SUBSTR( CD_LIST_1, 2 ) ) )
DO _Err_Box WITH [Cannot find file: ] + TRIM( SUBSTR( CD_LIST_1, 2 ) )
lOk = .F.
ENDIF
ELSE
IF .NOT. FILE( TRIM( CD_LIST_1 ) )
DO _Err_Box WITH [Cannot find file: ] + TRIM( CD_LIST_1 )
lOk = .F.
ENDIF
ENDIF
ENDIF
IF .NOT. lOk
nCurrent = 37
ENDIF
ENDIF
RETURN lOk
*-- EOF: BDCOk( )